home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / PrintFax.ifx < prev    next >
Text File  |  1996-03-02  |  698b  |  39 lines
  1. /*
  2.  * $VER: Create 1.04.00 (8.6.93)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Print out a PhonePak FAXX file using the Prefs2 printer module.
  8.  * Prints all pages of the fax file.
  9.  *
  10.  * Actually this will work with any file format.
  11.  *
  12.  */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. RequestFile '"Select Fax File:"' '"PPak:(Master)"'
  17. IF rc ~= 0 THEN EXIT
  18. file = result
  19.  
  20. SetPrinter 'Prefs2'
  21. Menu Printer
  22.  
  23. page = 1
  24. DO FOREVER
  25.  
  26.    LoadBuffer '"'file'"' Force page
  27.    IF rc ~= 0 THEN LEAVE
  28.    Printer Density 3
  29.    Printer Aspect Keep
  30.    Printer Size HEIGHT "10.5"
  31.    Printer Shade BW
  32.    Printer Print
  33.    IF rc ~= 0 THEN LEAVE
  34.    Printer FormFeed
  35.  
  36.    page = page + 1
  37.  
  38.    END
  39.